home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Rexx / CTCP / autogetsounds.amirx next >
Text File  |  1998-05-09  |  1KB  |  35 lines
  1. /* $VER: autogetsounds.amirx 1.0 (9.5.98) Kuang Eleven Plugin : autoget missing sounds
  2. **  Requires AmIRC 2!
  3. **
  4. ** ctcp=0 Request sound via !nick soundfile (PUBLIC CHANNEL!)
  5. ** ctcp=1 Request sound via CTCP GETSOUND
  6. **
  7. ** autoget=0 Do not autoget DCC of requested sounds.
  8. ** autoget=1 autoget DCC of requested sounds.
  9. ** Note : this is a K¹¹ 2.8+ Feature ONLY
  10. */
  11. ctcp=1
  12. autoget=1
  13. /* Do not mess with stuff below unless you know what you are doing */
  14.  
  15. options results
  16. parse arg ':'prefix' 'type' 'channel' :'text
  17. parse var prefix nick'!'user'@'host
  18. div='01'x
  19. parse var text (div) command file . (div)
  20. if upper(command)~='SOUND' then exit
  21. if file~==compress(file,'/:`"*') then exit
  22. "GETCTCPSOUNDDIR"
  23. if ~exists(prsprg(result)||file) then do
  24.     if ctcp=0 then 'SAY !'nick file 'K¹¹ AutoRequest'
  25.     else 'QueueRAW PRIVMSG' nick ':'div||'GETSOUND' file||div
  26.     "ECHO P="d2c(27)"b«GetSound» Requested" d2c(2)file||d2c(2) "from" d2c(2)||nick
  27.     if autoget then setclip('st_autoget',strip(getclip('st_autoget') upper(file)))
  28. end
  29. exit
  30. prsprg:PROCEDURE
  31. X=addpart(ARG(1),'')
  32. "GETPROGDIR"
  33. Y=RESULT
  34. IF UPPER(LEFT(X,8))='PROGDIR:' THEN RETURN addpart(Y,'')||SUBSTR(X,9)
  35. RETURN X